Set the working directory to H:/Projects/11000/11187/TS/Task 3.

Load the Scott_County_CR78_trips_78.csv file.

The dimensions of the CR_78 dataset are 2063 rows and 20 columns. The dimensions of the CR_42 dataset are 994 rows and 20 columns.

Two combinations of links were used for analysis. The segments were loaded from the File Geodatabase on the H Drive project folder, H:/Projects/11000/11187/TS/Task 3/Scott County.gdb.

The segment for CR_42 included 18 links. The segment for CR_42 included 20 links.

CR_78 and CR_42 Analysis Links

CR_78 and CR_42 Analysis Links

Scott County

CR_78

The data was collected between 2015-08-31 and 2015-11-30.

g <- tripflag_summary_42 %>% 
  mutate(in_model = Total_Dist<40)%>%
  ggplot(aes(x=in_model))+
  geom_bar(stat = 'count')+
  labs(title='Trips less than 40 miles',x='',y='Total Count')+
  scale_y_continuous(breaks = seq(0,900,50))+
  theme(plot.title = element_text(hjust = 0.5))
ggplotly(g)
gg <-  ggplot(tripflag_summary_42[tripflag_summary_42$Total_Dist<40,])+
  geom_histogram(aes(x=Total_Dist),color='black',fill='white',binwidth = 2)+
  labs(title="Total Trip Distance histogram plot",
       x="Total Distance (miles)",y = "Count")+
  scale_y_continuous(breaks = seq(0,1500,20))
  
ggplotly(gg)

Start Locations:

End Locations:

CR_42

The data was collected between 2015-08-31 and 2015-11-30.

b <- tripflag_summary_78 %>% 
  mutate(in_model = Total_Dist<40)%>%
  ggplot(aes(x=in_model))+
  geom_bar(stat = 'count')+
  labs(title='Trips less than 40 miles',x='',y='Total Count')+
  scale_y_continuous(breaks = seq(0,1500,50))+
  theme(plot.title = element_text(hjust = 0.5))
ggplotly(b)
gg <-  ggplot(tripflag_summary_78[tripflag_summary_78$Total_Dist<40,])+
  geom_histogram(aes(x=Total_Dist),color='black',fill='white',binwidth = 2)+
  labs(title="Total Trip Distance histogram plot",
       x="Total Distance (miles)",
       y = "Count")+
  scale_y_continuous(breaks = seq(0,400,20))
  
ggplotly(gg)

Start Locations:

End Locations: